home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / vdisrc12 / vdicntl2.s < prev    next >
Text File  |  1990-11-23  |  2KB  |  53 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* VDIFAST Public Domain VDI bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .iif      !(^^macdef VContrl),.include  "vdimacro.s"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Rarely-used control functions.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;*------------------------------------------------------------------------
  17. ;* Load fonts.
  18. ;*------------------------------------------------------------------------
  19.  
  20. _vst_load_fonts::
  21.           .cargs    #8,.handle.w,.select.w
  22.           link      a6,#-2
  23.           
  24.           VContrl   #119,,,#1
  25.           
  26.           clr.l     -(sp)               ;* -> ptsout
  27.           pea       -2(a6)              ;* -> intout
  28.           clr.l     -(sp)               ;* -> ptsin
  29.           pea       .select(a6)         ;* -> intin
  30.           pea       16(sp)              ;* -> contrl
  31.  
  32.           jmp       vdicall
  33.           
  34. ;*------------------------------------------------------------------------
  35. ;* Unload fonts.
  36. ;*------------------------------------------------------------------------
  37.  
  38. _vst_unload_fonts::
  39.           .cargs    #8,.handle.w,.select.w
  40.           link      a6,#-2
  41.  
  42.           VContrl   #120,,,#1
  43.           
  44.           clr.l     -(sp)               ;* -> ptsout
  45.           pea       -2(a6)              ;* -> intout
  46.           clr.l     -(sp)               ;* -> ptsin
  47.           pea       .select(a6)         ;* -> intin
  48.           pea       16(sp)              ;* -> intin
  49.           
  50.           jmp       vdicall
  51.                     
  52. ;*         end of code
  53.